home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue25 / tiptrix / LISTING1.pas next >
Encoding:
Pascal/Delphi Source File  |  1997-08-18  |  272 b   |  16 lines
  1. procedure TForm1.CopySLToClipboard(SL : TStringList);
  2. begin
  3. with TMemo.Create(self) do 
  4.   try
  5.     Top := -200; 
  6.     Width := 10;
  7.     Height := 10;
  8.     Parent := self;
  9.     Lines.Assign(SL);
  10.     SelectAll;
  11.     CopyToClipboard;
  12.   Finally
  13.     Free;
  14.   end;
  15. end;
  16.